一、问题
工作需要将多个小的excel文件合并成为一个excel文件,文件格式、内容一致,因为文件数目较多,不考虑手动粘贴复制,直接考虑使用VBA程序解决这个问题。
图1 同一个文件夹下的多个excel文件
二、代码
Sub 打开文件夹下所有文件并复制制定内容()
Dim a$, n As Long, i As Long, Num As Long, Name$ '定义n为计算写入的起始行号,Num为文件计数,n最好设为长整型,不然容易溢出Dim h% 'h定义为除首行(字段名)的内容行数
Dim mypath$
t = Timer
Application.ScreenUpdating = False
mypath = ActiveWorkbook.Path '获取当前宏文件所在问价夹路径
a = Dir(mypath & "\" & "*.xls") '获取当前文件夹下文件路径